object ABookPrint: TABookPrint Left = 200 Top = 108 HelpContext = 14048 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Print Address Book' ClientHeight = 240 ClientWidth = 353 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = True Position = poScreenCenter OnClose = FormClose OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object GroupBox1: TGroupBox Left = 8 Top = 8 Width = 337 Height = 49 Caption = '&Printer' TabOrder = 0 object cbPrinter: TComboBox Left = 8 Top = 18 Width = 233 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 0 end object Button1: TButton Left = 248 Top = 16 Width = 81 Height = 25 Caption = '&Setup...' TabOrder = 1 OnClick = Button1Click end end object rgStyle: TRadioGroup Left = 8 Top = 64 Width = 337 Height = 81 Caption = 'Output style' Columns = 2 ItemIndex = 0 Items.Strings = ( '&Memo' '&Business card' '&Telephone list' '&Address list') TabOrder = 1 end object bOK: TButton Left = 88 Top = 208 Width = 75 Height = 25 Caption = '&OK' Default = True ModalResult = 1 TabOrder = 2 OnClick = bOKClick end object bCancel: TButton Left = 176 Top = 208 Width = 75 Height = 25 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 3 end object rgRange: TRadioGroup Left = 8 Top = 152 Width = 337 Height = 41 Caption = 'Range' Columns = 2 ItemIndex = 0 Items.Strings = ( '&Selection only' '&Entire list') TabOrder = 4 end object bHelp: TButton Left = 264 Top = 208 Width = 75 Height = 25 Caption = 'Help' TabOrder = 5 OnClick = bHelpClick end object dPrinterSetup: TPrinterSetupDialog Left = 8 Top = 208 end end